Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Nou pe simpatie:
Laura Petrei pe Simpatie
 | Femeie
24 ani
Braila
cauta Barbat
27 - 65 ani |
|
|
Mrrrr's Forum (VIEW ONLY)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
TRaPModerator
Postari: 960
|
|
Source for Worksheet.Protect Method options:
https://msdn.microsoft.com/en-us/vba/ex ... thod-excel
expression .Protect ( Password , DrawingObjects , Contents , Scenarios , UserInterfaceOnly , AllowFormattingCells , AllowFormattingColumns , AllowFormattingRows , AllowInsertingColumns , AllowInsertingRows , AllowInsertingHyperlinks , AllowDeletingColumns , AllowDeletingRows , AllowSorting , AllowFiltering , AllowUsingPivotTables )
My example:
Sub Protect_with_Conditions()
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect
Else
ActiveSheet.EnableOutlining = True
ActiveSheet.PROTECT _
UserInterfaceOnly:=True, _
AllowFormattingCells:=True, _
AllowFiltering:=True
End If
End Sub |
|
|
| |
|
