Beskyttelse og samtidig bruge makro

Hvis det kun er et ark den skal køre i så:

sæt dette henholdsvis øverst og nederst i din kode

  ActiveSheet.Unprotect

kode


    ActiveSheet.Protect

Jeg bruger selv nedenstående funktion til at sætte / fjerne beskyttelse. Det kan også være nødvendigt hvis man skal sortere i et ark.
conProtectPassword indeholder så det password jeg bruger og er defineret andetsteds i min app.
kabbak's metode er 'tilstrækkelig' i de fleste tilfælde, men personlig har jeg konstateret at ark der er oprettet og beskyttet i Excel XP ikke fungerer som forventet.

Public Function fhpSheet_Protection(strSheet As String, Optional bolApply As Boolean = True) As Integer
' -----------------------------------------------------------------------------------
' Purpose    : Opretter eller fjerne beskyttelse på ark
' Parameters :
' Returns    : Integer
' Created    : 01-17-04
' Modified  :
' Remarks    : Hvis bolApply = True sættes beskyttelse, hvis False fjernes den
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpSheet_Protection
 
  If bolApply = True Then
    Sheets(strSheet).Protect Password:=conProtectPassword, DrawingObjects:=True, Contents:=True, Scenarios:=True
    Sheets(strSheet).EnableSelection = xlUnlockedCells
  Else
    Sheets(strSheet).Unprotect Password:=conProtectPassword
  End If
 
Exit_fhpSheet_Protection:
  Exit Function

Error_fhpSheet_Protection:
  Select Case Err.Number
    Case 2501
    Case 3021
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpSheet_Protection'"
  End Select
  Resume Exit_fhpSheet_Protection

End Function

en anden mulighed er at placere denne kode i ThisWorkbook.

Private Sub Workbook_Open()
Dim sh As Object
For Each sh In ThisWorkbook.Sheets
    sh.Protect password:="tbc", userinterfaceonly:=True
Next
End Sub

Den sætter et password på alle ark, men beskyttelsen gælder kun for userinterface, ikke for makroer