Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code deaktivieren
 18.12.2019 11:01:07 Peter
NotSolved
18.12.2019 18:46:01 Gast73990
NotSolved
18.12.2019 19:13:22 Gast70881
NotSolved
18.12.2019 20:30:29 Gast17042
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
18.12.2019 11:01:07		 Views:
877		 Rating:
     
Antwort:
  Ja
Thema:
VBA Code deaktivieren
Hallo liebe VBA Profis, Ich habe für unsere Abteilung einen Dienstplan erstellt. Da durch kopieren und einfügen die Formatierung immer überschrieben wurde habe ich u.a. VBA Code (den hab ich im Netz gefunden) eingefügt. Nun ist es ab und zu doch nötig etwas zu kopieren und einzufügen. Ich möchte darum nun den u.a. Code mittels Passwortgeschütztem Commandbutton deaktivieren. Nur bringe ich das nicht zu Stande. Hat jemand von euch eine Idee wie ich das lösen könnte. Danke Lg Peter ____________ '*** In the ThisWorkbook Module *** Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub ___________ '*** In a standard module *** Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "Sorry! Kopieren und Einfügen ist nicht erlaubt!" End Sub ____________

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Code deaktivieren
 18.12.2019 11:01:07 Peter
NotSolved
18.12.2019 18:46:01 Gast73990
NotSolved
18.12.2019 19:13:22 Gast70881
NotSolved
18.12.2019 20:30:29 Gast17042
NotSolved