Wijziging loggen

Status
Niet open voor verdere reacties.
Ik geraak er niet uit...

Geeft soms foutmelding op .Undo en soms geen foutmelding (maar er wordt ook niet gelogged dan).
Kan iemand aub toch nog eens helpen?
 
Wij ook niet zonder het bestand.
 
Dat is het probleem net.

De "echte" file gereduceerd naar 2 tabbladen en daar werkt de code perfect.
Als ik ze in de "echte" zet foutmelding op Application.Undo

Wegens de bedrijfsafhankelijke dingen zet ik deze niet graag helemaal online...

Iemand nog een idee?
 
Al eens in Thisworkbook module gekeken?
 
Dit staat er WorkBook_Open, maar het loggen staat onder Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Code: 
Private Sub Workbook_Open()

'Foutmeldingen onderdrukken
If ActiveWorkbook.ReadOnly = False Then

'***CODES HIERONDER PLAATSEN***
'***CODES HIERONDER PLAATSEN***
'***CODES HIERONDER PLAATSEN***

'Knippen, plakken, slepen uit voor andere gebruikers
If LCase(Environ("username")) <> "mijn.naam" Then
Application.CellDragAndDrop = False
End If



'Gebruikersafankelijk/Environ Username

Gebruikers_herkennen


'Openen op huidige week

Openen_op_huidige_week
    

wegschrijven_backup_teller

' Automatisch afsluiten file
 close_time = Now + TimeValue("00:30:00")
 run_time
 
 ' Aanpassen naar 100% zoom
 Beeld_aanpassen
 
 'Einde foutmeldingen onderdrukken
 End If
 
 
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan