Verplicht openen / bewerken

[cloosen]

Ik heb denk ik een rare vraag; maar heb dit wel nodig.

Ik wil graag dat een bepaalde excel file verplicht geopend wordt met ''macro's enabled". Bij ons wordt standaard gevraagd (policy) of je marco's wil enablen of disablen. Graag wil ik dat als een gebruiker geklikt heeft op disabled dat er geen gegevens zichtbaar zijn (of een prompt waarin staat dat het noodzakelijk is de macro's te enablen).

Waarom? ik wil graag dat de gebruiker min of meer verplicht wordt te reageren op de sheet. Op het moment dat de macro's enabled zijn wil ik dat er een tweetal knoppen zijn (dat lukt uiteraard) waarvan eentje een macro bevat die een 'AKKOORD' mail stuurt naar een vast mailadres; de andere knop een 'NIET AKKOORD'.

Daarnaast wil ik graag dat als de lezer van de sheet de sheet wil sluiten zonder keuze gemaakt te hebben er een prompt komt die aangeeft dat er eerst een keuze gemaakt moet worden alvorens de sheet te sluiten - en dat dus ook verplicht.

E.e.a. lukt mij niet zo goed; ik weet ook niet of het kan...

Kan iemand mij met deze uitdaging helpen???

 

[NuMan]

Macro voor openen van het bestand:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets("Map1").Visible = True
Sheets("info").Visible = xlVeryHidden
Sheets("Map3").Visible = True
Application.ScreenUpdating = True
End Sub

Macro voor afsluiten van het bestand:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Sheets("Map1").Visible = xlVeryHidden
Sheets("info").Visible = True
Sheets("Map3").Visible = xlVeryHidden
Application.ScreenUpdating = True
' Keuze (welke mogelijkheden?)
ActiveWorkbook.Save
End Sub

 

[cloosen]

bovenstaande begrijp ik nog niet helemaal... Als ik de 'openen' macro uitvoer blijft sheet2 verborgen (macro's enabled of disabled)...

 

[NuMan]

bovenstaande begrijp ik nog niet helemaal... Als ik de 'openen' macro uitvoer blijft sheet2 verborgen (macro's enabled of disabled)...

Bij afsluiten worden Map1 en Map2 verborgen en info is zichtbaar.
Bij openen Map 1 en Map3 zijn zichtbaar, als de macro's ingeschakeld zijn.
of bij openen alleen info zichtbaar, als de macro's uitgeschakeld zijn.
Bij info map kun je informatie kwijt dat de macro's altijd ingeschakeld moet zijn.
Je hebt beide macro's nodig !!!

zie ook bijlage

 

[NuMan]

zie bijlage versie 2.
Alleen bij afsluiten gaat nog niet goed, maar groot gedeelte wel...
Kan iemand onderstaande macro aanpassen?
'Macro voor afsluiten van het bestand:
=====================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Map1").Range("H1") = "AKKOORD" Or Sheets("Map1").Range("H1") = "NIET AKKOORD" Then
Application.ScreenUpdating = False
Sheets("Map1").Visible = xlVeryHidden
Sheets("info").Visible = True
Sheets("Map3").Visible = xlVeryHidden
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
MsgBox "U moet kiezen tussen Akkord of Niet Akkoord"
Application.ScreenUpdating = False
Exit Sub
End If
End Sub
==================

 

[cloosen]

Dit werkt echt al super goed...!!! Super dank je wel al...! Alleen jammer dat de sheet nog steeds gesloten kan worden; bijna dus al..! :thumb: :thumb: :thumb:

 

[Superzeeuw]

Hallo,

De Sub is als volgt aan te passen

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Map1").Range("H1") = "AKKOORD" Or Sheets("Map1").Range("H1") = "NIET AKKOORD" Then
Application.ScreenUpdating = False
Sheets("Map1").Visible = xlVeryHidden
Sheets("info").Visible = True
Sheets("Map3").Visible = xlVeryHidden
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
Akkoord = MsgBox("Gaat U akkoord ?",vbYesNo)
If Akkoord = vbYes then
DOE HIER IETS NAAR BELIEVEN
Elseif Akkoord = vbNo then
DOE HIER IETS NAAR BELIEVEN
End If
Application.ScreenUpdating = False
Exit Sub
End If
End Sub

 

[NuMan]

zie bijlage versie 2.
Alleen bij afsluiten gaat nog niet goed, maar groot gedeelte wel...
Kan iemand onderstaande macro aanpassen?
'Macro voor afsluiten van het bestand:
=====================
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Map1").Range("H1") = "AKKOORD" Or Sheets("Map1").Range("H1") = "NIET AKKOORD" Then
Application.ScreenUpdating = False
Sheets("Map1").Visible = xlVeryHidden
Sheets("info").Visible = True
Sheets("Map3").Visible = xlVeryHidden
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
MsgBox "U moet kiezen tussen Akkord of Niet Akkoord"
Application.ScreenUpdating = False
Exit Sub
End If
End Sub
==================

Zelf gevonden
deze regel was nog nodig : Cancel = True
===================
'Macro voor afsluiten van het bestand:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Sheets("Map1").Range("H1") = "AKKOORD" Or Sheets("Map1").Range("H1") = "NIET AKKOORD" Then
Application.ScreenUpdating = False
Sheets("Map1").Visible = xlVeryHidden
Sheets("info").Visible = True
Sheets("Map3").Visible = xlVeryHidden
Application.ScreenUpdating = True
ActiveWorkbook.Save
Else
MsgBox "U moet kiezen tussen Akkord of Niet Akkoord"
Application.ScreenUpdating = False
Cancel = True
Exit Sub
End If
End Sub
===============

 

[cloosen]

Super!!!

:thumb: JULLIE ZIJN ECHT GEWELDIG!!!! :thumb: :thumb: :thumb:

THNX!