Thema: Aktivierung von Berechnungen bei gültiger Passworteingabe

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   With ThisWorkbook
      .Names.Add Name:="C0UNTRY", RefersToR1C1:="=3"
      .Names("Country").Visible = False
   End With
End Sub

Private Sub Workbook_Open()
   Application.EnableCancelKey = xlDisabled
   Dim sTxt As String
   sTxt = InputBox("Bitte Passwort eingeben:", , "MeinPasswort")
   If sTxt <> "MeinPasswort" Then Exit Sub
   With ThisWorkbook
      .Names.Add Name:="C0UNTRY", RefersToR1C1:="=Tabelle1!COUNTRY"
      .Names("Country").Visible = False
   End With
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Berechnen