Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Horror
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Отображение первых двух листов и скрытие остальных
 
#
22.09.2017 15:13:00
Всем привет
В файле 6 и более листов, подскажите как сделать, чтобы при открытии показывало только 2 нужных листа, остальные будут спрятаны
Комбинация скрытия остальных листов не подходит, т.к. далее в макросе будет прописаны разграничения доступа по листам
Код
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim iSheet As Worksheet
    For Each iSheet In Worksheets
        If iSheet.Name <> "Sheet1" Then
            iSheet.Visible = xlSheetVeryHidden
        End If
    Next
End Sub

как прописать второй лист?
 
Перейти    
Объединить макросы с условиями для разных пользователей
 
#
20.09.2017 17:14:11
Добрый день!
Файл расположен в локальной сети. Макрос для отображения определенных листов разным пользователям. Около 20 пользователей - только к листу заказ, еще 4 пользователя - ко всем листам (Иванов, Петров)
Помогите объеденить
 
Перейти    
Закрытие книги при бездействии
 
#
22.08.2017 09:31:13
Добрый день знатоки!
На форумах нашел макрос позволяющий закрывать книгу при бездействии через определенное количество времени. Все прекрасно работает, НО есть одна загвоздка - при открытии книги нет возможности ее редактировать - редактирование возможно если кликнуть правой кнопкой мыши. Подскажите как это можно исправить без клика
 
Перейти    
Перенос данных, добавление примечания
 
#
11.06.2017 21:42:39
Нужна помощь специалистов, любителей, и просто знающих что да как
есть файл:
1 лист - заполняется в ручную, некая услуга. Основное это цена с НДС
2 лист - обобщенная таблица: задача такая - из листа 1 перенести на лист 2 цену с НДС, цену с НДС расставить в соответствующие ячейки соответствующую номеру заказа и месяцу, а в примечание добавить номер заявки

пример как должно быть в приложении
 
Перейти    
Видимость кнопки
 
#
04.06.2017 12:53:33
Вчера подсказали как сделать видимую кнопку при соблюдений условий. Но есть одно но, при назначении к этой кнопки макроса выскакивает ошибка, подскажите что не так
 
Перейти    
Активация кнопки
 
#
03.06.2017 21:24:05
Подскажите макрос
если в строке А2:G2 хотябы одна ячейка не будет заполнена кнопка будет не активной
 
Перейти    
Защита листа, Снимается защита листа при использовании макроса
 
#
03.06.2017 19:40:16
При выполнении действий макроса снимается защита ячеек (в формате ячеек), при этом защита листа сохраняется, что не так?

Sub Copy_ClearЗаказ()
Application.ScreenUpdating = False 'отключили обновление экрана
Sheets("Обзор заказа").Select
ActiveSheet.Unprotect Password:="00000"
Sheets("Заказ").Activate
Range("A2:G12" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Обзор заказа").Cells(Sheets("Обзор заказа").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Sheets("Обзор заказа").Activate 'активируем лист
' MsgBox " Данные   успешно скопированы на лист Обзор заказа", 64, "Подтверждение копирования диапазона"
 

With Sheets("Заказ")
       LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Нашли последнюю строку на  листе
       .Range(.Cells(2, 1), .Cells(LastRow, 8)).ClearContents  'Очистили диапазон таблицы полностью
End With
'  MsgBox " Данные с листа Заказ  очищены", 64, "Очистка диапазона"
Sheets("Заказ").Activate
Sheets("Обзор заказа").Select
   Selection.Locked = True
   ActiveSheet.Protect Password:="00000", DrawingObjects:=True, Contents:=True, Scenarios:=True
 Application.ScreenUpdating = True 'включили обновление экрана
End Sub
 
Перейти    
Снять/установить пароль макросом
 
#
02.06.2017 22:12:38
есть макрос
Sub Copy_ClearЗаказ()
Application.ScreenUpdating = False 'отключили обновление экрана
Range("A2:G12" & Cells(Rows.Count, 1).End(xlUp).Row).Copy Sheets("Обзор заказа").Cells(Sheets("Обзор заказа").Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
Sheets("Обзор заказа").Activate 'активируем лист
' MsgBox " Данные   успешно скопированы на лист Обзор заказа", 64, "Подтверждение копирования диапазона"
 

With Sheets("Заказ")
       LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'Нашли последнюю строку на  листе
       .Range(.Cells(2, 1), .Cells(LastRow, 8)).ClearContents  'Очистили диапазон таблицы полностью
End With
'  MsgBox " Данные с листа Заказ  очищены", 64, "Очистка диапазона"
Sheets("Заказ").Activate
 Application.ScreenUpdating = True 'включили обновление экрана
End Sub

вкладка ОБЗОР ЗАКАЗА запоролена
Помогите дописать: нужно снять защиту со вкладки, произойдет некое действие по макросу, заново поставить пароль
Изменено: Horror - 02.06.2017 23:55:32
 
Перейти    
Перенос данных при нажатии кнопки
 
#
02.06.2017 10:18:31
Есть таблица заказа, состоит из двух вкладок: 1-непосредственно сам заказ, 2-обзор заказа. В первой вкладке человек забивает данные заказа, при нажатии кнопки заказать эти данные копируются в другую вкладку (в первой вкладке они соответственно удаляются). Подскажите как сделать чтобы во второй вкладке заказы переносились по порядку
 
Перейти    
Поиск ряда значений по условиям
 
#
09.09.2016 20:47:05
есть таблица с фамилиями работников и их процент выполнения плана по дням
нужна ваша помощь в решении следующей задачи:

1 ячейка пишем фамилию работника
2 ячейка дата с которой стоит начать поиск
3 ячейка дата окончания поиска
4 ячейка среднее значение процента выполнения плана за этот период

соответственно при смене фамилии среднее значение пересчитывается
спасибо!
 
Перейти    
Страницы: 1
Наверх