Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle mit CommandButton automatisch Sperren

Forumthread: Tabelle mit CommandButton automatisch Sperren

Tabelle mit CommandButton automatisch Sperren
13.03.2018 14:19:43
Patrick
Guten Tag zusammen,
meine Frage ist folgende.
In der angehängten Datei möchte ich das Immer alles gesperrt ist und niemand etwas verändern kann.
Jedoch Drückt man auf Auftrag absenden, möchte ich gerne das, das Blatt Entsperrt wird und bei erfolgreicher automatisch Eingabe der Textboxen in die Zellen es wieder gesperrt wird.
Ich Hoffe es kann mir jemand helfen bin noch ein Neuling auf dem VBA gebiet und das ist so mein erstes "Projekt"
Sofern mir jemand noch bei dem aktuellen Code Tipps geben könnte wie ich es evtl. Besser oder Einfacher lösen hätte können wäre ich auch Dankbar :)
https://www.herber.de/bbs/user/120381.xlsm
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle mit CommandButton automatisch Sperren
13.03.2018 14:37:01
Werner
Hallo Patrick,
benutze hierzu UserInterfaceOnly:=True beim Start der Datei. Das bewirkt, dass trotz gesperrtem Blatt das Makro Änderungen vornehmen darf. Dann sparst du dir das ständige Entsprerren/Sperren des Blattes im Makro selbst.
Vorgehensweise:
Alle Zellen auswählen (Dreieck oben links zw. Spalten und Zeilenkopf) - Rechte Maustaste im Tabellenbereich - Zellen formatieren - Schutz - Haken bei gesperrt setzen.
Menü Überprüfen - Blatt schützen - Passwort vergeben
Im VBA-Editor (öffnen mit Alt+F11) Doppelklick auf DieseArbeitsmappe.
Im Codefenster rechts folgenden Code: 
Private Sub Workbook_Open()
Worksheets("Tabelle der Aufträge").Protect Password:="Patrick", UserInterfaceOnly:=True
End Sub
Bei Password:= mußt du das Passwort eintragen, das du vorher beim Setzen des Blattschutzes angegeben hast.
In deiner Beispieldatei habe ich das Blatt mit dem Passwort "Patrick" geschützt.
https://www.herber.de/bbs/user/120382.xlsm
Gruß Werner
Anzeige
AW: Tabelle mit CommandButton automatisch Sperren
13.03.2018 15:26:01
Patrick
Hallo Werner,
ich danke dir viel mals fürs helfen funktioniert super ! :)
War am Code sonst soweit alles korrekt oder kann ich noch Verbesserungen/Einsparungen vornehmen ?
Gerne u.Danke für die Rückmeldung...
13.03.2018 15:51:51
Werner
Hallo Patrick,
...deinen Code habe ich mir gar nicht angeschaut. Kann ja mal drüber schauen.
Gruß Werner
Anzeige
AW: Tabelle mit CommandButton automatisch Sperren
13.03.2018 18:01:59
Werner
Hallo Patrick,
du brauchst doch nicht für jede Spalte immer wieder die erste freie Zeile zu ermitteln. Das reicht doch einmal, da die Daten aus den Boxen dann ja alle in die gleiche Zeile geschrieben werden. 
Private Sub CommandButton1_Click()
Dim loLetzte As Long
If ArtikelnummerBox1 = "" Or ArtderTeileBox1 = "" Or ArtderVermessungBox2 = "" _
Or MaschinennummerBox1 = "" Or AnzahlBox2 = "" Or AuftraggeberBox3 = "" _
Or weitereAnsprechpartnerBox4 = "" Or WunschterminBox5 = "" _
Or SonstigeBemerkungenBox6 = "" Or OptionButton1 = False Then
MsgBox "Bitte Vermessungsauftrag vollständig ausfüllen"
Else
With Worksheets("Tabelle der Aufträge")
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Offset(1, 0).Row
.Cells(loLetzte, 3) = CDate(Me.DatumBox1)
.Cells(loLetzte, 4) = Me.ArtikelnummerBox1
.Cells(loLetzte, 5) = Me.ArtderTeileBox1
.Cells(loLetzte, 6) = Me.ArtderVermessungBox2
.Cells(loLetzte, 7) = Me.MaschinennummerBox1
.Cells(loLetzte, 8) = CLng(Me.AnzahlBox2)
.Cells(loLetzte, 9) = Me.AuftraggeberBox3
.Cells(loLetzte, 10) = Me.weitereAnsprechpartnerBox4
.Cells(loLetzte, 11) = CDate(Me.WunschterminBox5)
.Cells(loLetzte, 12) = Me.SonstigeBemerkungenBox6
.Range("a1").Select
End With
UserForm1.Hide
End If
End Sub
Gruß Werner
Anzeige
AW: Tabelle mit CommandButton automatisch Sperren
14.03.2018 09:56:39
Patrick
Guten Morgen Werner,
danke für die Tipps hab ich fast 1:1 so übernommen.
Einzige Änderung die ich gemacht habe war statt ".Cells(loLetzte, 3) = CDate(Me.DatumBox1" auf .Cells(loLetzte, 3) = Me.DatumBox1 zu ändern da er mir das Datum immer in Amerikanischer schreibweise gemacht hat.
Ich Vermute das liegt aber an der Formatierung des Blattes. Ich werd das später mal testen ob ich die Formatierung einfach auf Datum stellen muss.
Danke fir auf jedenfall schon mal für die verbesserungen :)
Anzeige
Gerne u. Danke für die Rückmeldung...
14.03.2018 10:17:46
Werner
Hallo Patrick,
du mußt nur vorher die entsprechenden Spalten im erforderlichen Datumsformat formatieren.
Gruß Werner
;

Forumthreads zu verwandten Themen

Nachtrag zu Gestern - Commandbutton ...
Frank

Hallo Excelgemeinde!
Gestern fragte ich wie ich CommanButton mit Namen aus einer Tabelle befüllen kann!
Rudi schickte mir folgende Lösung:
CommandButton1.Caption = Range("AQ3").Text
Im Augenblick wird das Ereignis durch folgende Überschrift ausgelöst:
Private Sub Worksheet_S...
12.08.2008 14:38:00
Thread-ID: 1001212
2 Beiträge
auf CommandButton zugreifen
Lars

Hallo zusammen,
ich habe in Excel von einem Tabellenblatt A eine Abfrage (msgbox ok/cancel) gestartet, die ein anderes Tabellenblatt B aktiviert, wenn ok geklickt wird. Andernfalls erfolgt ein Rücksprung auf A.
Wenn nun ok geklickt wird, soll auf Tabellenblatt B zusätzlich ein CommandBu...
02.09.2008 16:44:00
Thread-ID: 1006864
5 Beiträge
Anzeige
CommandButton Name
Enrico

Hallo ich möchte die Eigenschaften von vielen CommandButton´s über ein
Makro ändern.
in Range("X" & i).Value steht der Name des Command Buttons
For i = 2 To 100
Knopf = Sheets("Daten").Range("X" & i).Value
Farbe = Sheets("Daten").Range(Knopf).Value
If Farbe = 1...
05.09.2008 09:24:00
Thread-ID: 1007588
3 Beiträge
commandbutton erstellen
sockel939

Hallo,
gibt es einen code mit dem man commandbuttons erstellen kann und gleich eine anweisung einfügen kann?
Ich kenne AddButtons weiß aber nicht wie das geht.
Danke
10.10.2008 12:00:17
Thread-ID: 1015547
2 Beiträge
Anzeige
Commandbuttons einfärben
Wolfgang

Hallo Excel Experten.
Stehe vor einem Problem bei dem ich nicht mehr weiterkommen.
Ich habe in einer Userform 42 CommandButton, die je nach Programmablauf verschieden eingefärbt werden sollen.
Es will mir aber nicht gelingen, diese einzeln in einer Schleife anzusprechen, den momenta...
15.10.2008 08:56:10
Thread-ID: 1016475
3 Beiträge
Makrofehler nur beim Commandbutton
Kurt

Guten Morgen,
warum klappt das Selectieren mit Commandbutton nicht.
Ich bin immer in der Tabelle "Gesamt"
Hier mit CommandButton:
Private Sub CommandButton100_Click() Sheets("Datenbank").Select ActiveSheet.Range("G3").Select Dim z As Long z = Range("g3").End(xlDown).Row Active...
17.10.2008 11:00:00
Thread-ID: 1017071
22 Beiträge
Anzeige
CommandButton Enabled = false
max

Liebe VBA-Gemeinde,
ich habe in einem Excel-Sheet zwei CommandButton eingefügt. Wenn der User nun den CB_1 klickt soll der CB_2 auf enabled = false gesetzt und der Text kursiv dargestellt werden.
Wie geht's ?
Dank im voraus
max
30.10.2008 15:07:25
Thread-ID: 1020626
5 Beiträge
CommandButton
Frank

Hallo,
Ingo aus dem Forum war mir bei diesem Code sehr behilflich
nun sollte ich aber noch einen CommandButton3 einfügen
der sollte bewirken das wenn ich den Preis in der TextBox=Preis
überschreibe diesen dann im Tabellenblatt ändert, nach Möglichkeit
erst noch eine Rückfrag...
04.11.2008 13:37:50
Thread-ID: 1021608
17 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:11:10
Thread-ID: 1022366
6 Beiträge
Druck mit Hilfe von CommandButton und UserForm
CommandButton

Hallo zusammen, nun ist meine Tabelle fast fertig, es fehlt nur noch der Ausdruck.
Ich habe ein Userform mit Checkboxen erstellt. Das Userform soll über ein CommandButton geöffnert werden. Dazu wollte ich folgendes verwenden:
UserFormName.Show
Allerdings funktioniert es nicht, kö...
06.11.2008 17:17:30
Thread-ID: 1022372
2 Beiträge
CommandButton Franz
Frank

Hallo Franz,
mein Beitrag im Forum ist verschwunden
mit deiner letzten Hilfe komme ich leider nicht klar
wo muss ich diesen Code einfügen
With Worksheets("Daten")
------If IsNumeric(.Cells(Zeile,Spalte) Then-------------------- ist im Code rot dargestellt
Me.Preis=Format...
11.11.2008 10:11:00
Thread-ID: 1023441
4 Beiträge
Blinkender Commandbutton
Ralf

Hallo Experten!
Ist es möglich einen Commandbutton blinken zu lassen wenn in der angesteuerten Arbeitsmappe neue Einträge gemacht wrden? Die Blinkdauer sollte 24h betragen.
Gruß Ralf
12.11.2008 20:21:00
Thread-ID: 1023986
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige