Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Aktivierung von Berechnungen bei gültiger Passworteingabe

Gruppe

Berechnen

Problem

Die Berechnungen des Arbeitsblattes werden nur dann aktiviert, wenn ein gültiges Passwort eingegeben wird.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.

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