Сделать пароль невидимым для защиты рабочих листов - PullRequest
Новая
       10

Сделать пароль невидимым для защиты рабочих листов

0 голосов
/ 10 октября 2018

У меня есть простой код, который мне интересно, есть ли лучший способ скрыть пароль, кроме как из «Блокировка проекта от просмотра».Я устанавливаю лист в xlSheetVeryHidden, но все же кто-то может увидеть пароль, если он хочет.

Вот код: 

Private Sub Workbook_Open()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("OpenLog")

If Not ws.Visible = xlSheetVeryHidden Then ws.Visible = xlSheetVeryHidden
ws.Protect Password:=1214, UserInterFaceOnly:=True

End Sub

Любая помощь приветствуется

Ник.

...