Zugriff auf Arbeitsblatt durch Passwort schützen
31.08.2007 14:11:00
Toni
durch Klick auf eine Form springt der Benutzer durch folgendes Makro auf ein anderes Arbeitsblatt an eine bestimmte Stelle! Dies funktioniert auch tadellos!
Mein Problem: Es soll nur einen Zugriff auf das Arbeitsblatt geben wenn man ein Passwort eingibt!
Wie kann ich das hier integrieren?
Sub BeiKlick_KundenStammdaten()
Application.ScreenUpdating = False
Dim knr As Long
Dim z As Long
knr = Sheets("1blick").Range("K5")
On Error Resume Next
z = WorksheetFunction.Match(knr, Sheets("Kunden").Range("C:C"))
If Err.Number = 0 Then
Application.Goto Sheets("Kunden").Range("C" & z), True
Else
MsgBox "Kundennummer nicht gefunden!"
End If
Application.ScreenUpdating = False
End Sub
Bin für jede Hilfe dankbar!!
Gruss, Toni
Anzeige
