Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1772to1776
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingang sperren

Eingang sperren
27.07.2020 09:00:16
kurt
Guten Morgen,
ich habe folgendes Makro, welches soweit einwandfrei funktioniert.
Private Sub CommandButton5_Click()
ActiveSheet.Application.ScreenUpdating = False
Tabelle17.Unprotect (getStrPasswort)
Tabelle17.Range("B3").Value = ActiveSheet.Range("K3")
Tabelle17.Protect (getStrPasswort)
ActiveSheet.Application.ScreenUpdating = True
End Sub
Nun möchte ich bei Klick auf das Button, das man ein Passwort eingeben muss, welches
nicht mit dem Passwort der Tabelle zu tun hat.
Passwort: "kk#"
krieg es nicht hin...
mfg
kurt k

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingang sperren
27.07.2020 09:06:22
Regina
Hi, teste mal so:

Private Sub CommandButton5_Click()
If Inputbox("Passwort?") = "kk#" then
ActiveSheet.Application.ScreenUpdating = False
Tabelle17.Unprotect (getStrPasswort)
Tabelle17.Range("B3").Value = ActiveSheet.Range("K3")
Tabelle17.Protect (getStrPasswort)
ActiveSheet.Application.ScreenUpdating = True
Else
Msgbox "Falsch!"
End If
End Sub
Gruß Regina
Danke Regina ! -)
27.07.2020 09:52:16
kurt
gerne - Danke für die Rückmeldung (owT)
27.07.2020 10:01:35
Regina
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige