в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:20Z

1 версия

Новая страница

==checks the UserName; if it is not Admin, this code protects each sheet from user changes==



<source lang="vb">

Private Sub Workbook_Open()
Dim sht As Worksheet
If Application.UserName <> "Admin" Then
For Each sht In Worksheets
sht.Protect UserInterfaceOnly:=True
Next sht
End If
End Sub
</source>

==Protect workbook==



<source lang="vb">

Sub ProtectWorkbook()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Protect "Excel2003", True, True
"wb.Unprotect
End Sub
</source>

==Show the workbook protection==



<source lang="vb">

Sub ShowWbProtection()
Dim wb As Workbook
Set wb = ThisWorkbook
Debug.Print "Structure protected? " & wb.ProtectStructure, _
"Windows protected? " & wb.ProtectWindows
End Sub
</source>

==Unprotect Workbook==



<source lang="vb">

Sub UnprotectWorkbook()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Unprotect "Excel2003"
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/Excel/Workbook Protect - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия