VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktivierung von Berechnungen bei gültiger Passworteingabe

Gruppe

Allgemein

Bereich

Berechnen

Thema

Aktivierung von Berechnungen bei gültiger Passworteingabe

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

    


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