Скрытие лист Excel с помощью VBA в Microsoft Excel и Excel листа не может быть нескрываемым с помощью кнопки UNHIDE на приложении Excel
В этой статье мы создадим макрос для скрытия листа Excel.
Лист Excel скрывается путем изменения его свойств с помощью кода VBA.
Скрытый лист Excel нельзя сделать видимым с помощью кнопки «Показать» в приложении Excel.
В этом примере мы создали форму регистрации ворот.
Когда пользователь вводит данные в форму и нажимает кнопку отправки, данные сохраняются в листе «Данные». Кнопке «Отправить» назначен макрос «SubmittingDetail».
Лист «Данные» можно сделать скрытым или отображаемым, нажав кнопку «Лист данных». Если лист «Данные» скрыт, его нельзя сделать видимым с помощью параметра «Показать», доступного на листе Excel.
Лист, скрытый с помощью кнопки «Лист данных», остается видимым в проводнике проекта в VBE (Visual Basic Editor), а для свойств листа скрытого листа задано значение xlSheetVeryHidden.
Лист также можно сделать очень скрытым без использования кода VBA. Для этого мы должны открыть VBE и установить для свойства visible листа в окне свойств значение 2 — xlSheetVeryHidden.
Чтобы скрыть лист, чтобы никто не мог его отобразить, не зная пароля для проекта Vb, просто скройте файл либо с помощью кода VBA, либо измените свойство visible листа на 2, т.е. xlsheetveryhidden, и заблокируйте проект Vb вместе с паролем.
Чтобы защитить проект Vb паролем, щелкните правой кнопкой мыши объект Microsoft Excel> Выберите свойства VBAProject…> появится диалоговое окно «Свойства VBAProject».
В диалоговом окне «Свойства VBAProject» перейдите на вкладку «Защита»> установите флажок для блокировки проекта> назначьте пароль для проекта.
Пароль, который мы назначаем для прикрепленного файла, — «зарегистрироваться». Для проекта можно назначить любой пароль.
Кнопка «Лист данных» используется как для скрытия, так и для отображения листа.
Кнопке «Лист данных» назначен макрос «ToggleHidingDataSheet». Когда пользователь нажимает кнопку, и если файл скрыт, тогда лист становится видимым, а если лист виден, то лист скрывается.
Лист можно сделать видимым, нажав кнопку «Лист данных» или изменив свойство visible обратно на 0, то есть xlSheetNormal, используя пароль для VBProject.
Пожалуйста, введите код ниже
Sub SubmittingDetail()
Dim LastRow As Long
'Finding the Last row in the "Data" sheet
'where data needs to be inserted
LastRow = Sheets("Data").Range("A1").SpecialCells(xlLastCell).Row + 1
'Inserting data in "Data" sheet
With Sheets("Data")
'Assigning serial number
.Range("A" & LastRow) = LastRow - 1
'Inserting data in "Data" sheet from range F15 to J15
.Range("B" & LastRow & ":F" & LastRow) = Range("F15:J15").Value
End With
'Deleting the cell content in the range
Range("F15:J15").Select
Selection.ClearContents
Range("F15").Select
End Sub
Sub ToggleHidingDataSheet()
'Checking whether sheet is currently hidden
If Sheets("Data").Visible = xlVeryHidden Then
'Code for making the sheet visible
Sheets("Data").Visible = True
Else
'Code for hiding the sheet
Sheets("Data").Visible = xlVeryHidden
End If
End Sub
Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.
Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]