Kopieerfunctie uitschakelen

[peter59]

Hallo allemaal

Voortbordurend op de vraag van Mexcelle.

http://www.helpmij.nl/forum/showthread.php/633455-wijzigen-naam-excelbestand

Is het ook mogelijk om de kopieerfunctie gelijk met de "opslaan als" functie uit te schakelen in This.Worbook??

Mvg Peter

 

[HSV]

Peter,

Hierbij kun je nog wel kopiëren maar niet meer plakken.
Ook doorvoeren met de vulgreep kan niet meer.

Alleen weet ik niet of het clipboard ook vol loopt.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.CutCopyMode = False
     If Selection.Cells.Count > 1 Then
       Application.Undo
   End If
End Sub

 

[peter59]

Hallo Harry

Ik ga hier eens mee aan de slag oftewel invoegen in het origineel.

Dank alvast voor de respons.

mvg Peter

 

[peter59]

Hallo

Is het ook mogelijk om de code van Roncancio

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
    MsgBox "Dit bestand mag niet onder een andere naam opgeslagen worden. ", vbExclamation, "Bestandsnaam mag niet veranderd worden!"
    Cancel = True
End If
End Sub

en de code van HSV

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.CutCopyMode = False
     If Selection.Cells.Count > 1 Then
       Application.Undo
   End If
End Sub.

in 1 code te gieten voor het gehele workbook??

mvg Peter

 

[HSV]

Nee, dat gaat niet.

 

[Roncancio]

Zowel mijn code als de code van HSV zijn 2 aparte events van ThisWorkbook.
Deze events kunnen dus beiden in 1 bestand staan.

Met vriendelijke groet,


Roncancio

 

[peter59]

Hallo heren

Hartelijk dank voor het meedenken en natuurlijk voor de code's.
Ga het e.e.a. uitproberen.
Denk dat ik hier nog op terug kom.

Zal dan een nieuwe topic starten.

mvg Peter

 

[peter59]

Hallo

En jawel hoor, hier ben ik weer.
De code's die ik graag had samen gevoegd daar was een "verkeerde" bij.

Die wat ik graag samengevoegd wil hebben zijn:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  For Each ws In Worksheets
          ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="vul hier een wachtwoord in"
    Next
End Sub

en deze van Roncancio

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
    MsgBox "Dit bestand mag niet onder een andere naam opgeslagen worden. ", vbExclamation, "Bestandsnaam mag niet veranderd worden!"
    Cancel = True
End If
End Sub

Wederom weer dank voor het meedenken.

mvg Peter

 

[HSV]

Hallo,

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim ws As Worksheet
  For Each ws In Worksheets
    ws.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="vul hier een wachtwoord in"
       Next
If SaveAsUI = True Then
  MsgBox "Dit bestand mag niet onder een andere naam opgeslagen worden. ", vbExclamation, "Bestandsnaam mag niet veranderd worden!"
    Cancel = True
  End If
End Sub

 

[peter59]

Hallo Harry

Ongelofelijk!! Het werkt als een tierelier.

Heel hartelijk dank en geniet nog een beetje van de Pinksterdagen

Groet Peter