Beeldscherm ifv gebruikers

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
Allen,

In file in bijlage (in de "echte") staat onderstaande code in voor het printen.

Code: 
ActiveWorkbook.Unprotect ""

With Application
    .EnableEvents = False
    .DisplayAlerts = False
End With

naam = ActiveSheet.Name
ActiveSheet.Copy After:=Sheets(Sheets.Count)

        
        With Range("A13:AB74")
            .SpecialCells(4).Interior.Color = xlNone
            .PrintOut , Copies:=1
        End With
        
    ActiveSheet.Delete
    Sheets(naam).Select
    
    With Application
    .EnableEvents = True
    .DisplayAlerts = True
    End With

End If

Deze print dus steeds de legen cellen in het wit, is veel beter leesbaar dan "gewoon" af te printen.
Nu heb ik deze denkwijze ook eens toegepast op het beeldscherm zelf als de file geopend is, lukt dus ook...

Nu mijn vraag;

Ik kan via Environ("username") herkennen wie de file opent.
Is het nu mogelijk om bij geopend scherm (bij bepaalde persoon) lege cellen wit te laten kleuren, de personen vullen deze file dan in/aan, dan bij het saven van de file de (tekst)wijzigingen bij te houden in de originele lay out (grijs/groen)?
Waarom? Ikzelf gebruik graag de originele file (in bijlage), de andere zouden liever de cellen in het wit zien bij openen file, persoonlijke keuzes...

Het is veel gevraagd, maar alvast bedankt voor de moeite!

Mvg
 

Bijlagen

  • Testfile OKE zonder namen.xlsm
    316,5 KB · Weergaven: 43
Het door jou geplaatste bestand wel.
 
Mmmmmmm zie geen beveiliging bij downloaden file...raar.....
 
Open maar eens met uitgeschakelde macro's.

Die automatische macro's bij openen van het bestand bevallen me ook helemaal niet.
In de link die ik eerder plaatste staat daar ook een opmerking over.

Haal eerst alle VBA code uit de macromodule van 'ThisWorkbook'.
Daarna kunnen we eens verder kijken.
 
Ron001 zei:
Mmmmmmm zie geen beveiliging bij downloaden file...raar.....
Klik om te vergroten...
Het bestand is prima te openen, maar er zit wel een startmacro in die het wachtwoord uit wil zetten van een weekpagina. En daar loopt hij op stuk.
 
Ben niet echt mee, maar bij deze alle 'ThisWorkbook' macro's uitgeschakeld...
 

Bijlagen

  • Testfile OKE zonder namen en macro's.xlsm
    314,2 KB · Weergaven: 40
Ik had niet beweerd dat het bestand niet geopend kon worden.
 
Volgens mij is hier voorwaardelijke opmaak voor uitgevonden. Maak eenmalig voor het bereik waar het om gaat een VO regel aan en zorg dat deze op bovenaan staat. Kies in het blad 'WEEK4' in Z11 1 van de opties en zie wat er gebeurt. Met 1 regel code ben je dan klaar.

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$Z$11" Then Range("A13:AB76").FormatConditions(1).Modify 1, 3, IIf([Target] = "wit", "=""""", "=""@#|""")
End Sub
 

Bijlagen

  • Testfile OKE zonder namen en macro's.xlsm
    324 KB · Weergaven: 43
@ VenA

De dingen die het moeilijkst lijken vallen meestal redelijk mee als ik jullie bezig zie, respect!

Moet dit per blad(worksheet) staan, kan ik dit in "ThisWorkbook" zetten?

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$Z$11" Then Range("A13:AB76").FormatConditions(1).Modify 1, 3, IIf([Target] = "wit", "=""""", "=""@#|""")
End Sub

Btw dus de file wordt bij iedereen 'origineel' geopend? En bij bepaalde personen kan ik dan via Environ ("username") bij openen file "wit" laten lijken...
Ik moet "sub" oproepen bij openen workbook en worksheet change?

Mvg
 
Laatst bewerkt:
Lijken mij dingetjes die je prima zelf kan uitproberen.
 
@ VenA

Inderdaad al vanalles geprobeerd, maar ik blijf met het probleem zitten dat ik deze niet toepasbaar krijg op andere tabbladen, enkel week 8 dan omdat dit gewoon een copy is...
Er wordt toch telkens verwezen naar een cel Z11, die is toch op elk blad "geactiveerd" met wit/origineel...

En ik heb de code bij Worksheet_change gezet (geen resultaat) + foutmelding als ik de code zet bij Workbook_open

Ik moet toch eerst activeren bij openen en dan Worksheet_Change?

Of sla ik u de bal helemaal mis?

mvg
 

Bijlagen

  • vena.xlsm
    336,2 KB · Weergaven: 34
In de module van ThisWorkbook
Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address = "$E$1" Then Range("E16:AB75").FormatConditions(1).Modify 1, 3, IIf([Target] = "wit", "=""""", "=""@#|""")
End Sub

En ervoor zorgen dat op elk blad de voorwaardelijke opmaak goed ingesteld staat. Alle overige VO regels heb ik er even uitgehaald.
 

Bijlagen

  • vena.xlsb
    183,8 KB · Weergaven: 33
@ VenA,

ik heb in mijn "echte" lijst (voorlopig) één werkblad staan met de voorwaardelijke opmaak goed ingesteld (kopie van VenA :)), om te testen...

Dan heb ik onderstaande code in ThisWorkbook gezet, maar de opmaak van het werkblad blijft op origineel, staan...

Doe ik dit verkeerd in onderstaande code?

Code: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If ActiveWorkbook.Protect = True Then Unprotect ("paswoord")
If ActiveSheet.Protect = True Then Unprotect ("paswoord")

If Environ("username") = "Mijn.Naam" Then
    ActiveSheet.Range("E1").Select
    If Target.Address = "$E$1" Then
        Range("E16:AB75").FormatConditions(1).Modify 1, 3, IIf([Target] = "wit", "=""""", "=""@#|""")
    End If
End If

If ActiveSheet.Unprotect = True Then Protect ("paswoord")
If ActiveWorkbook.Unprotect = True Then Protect ("paswoord")

End Sub
 
Een wachtwoord in een testbestand: brrrr

Een 'Select' in VBA-code: idem.
 
@ SNB

Wachtwoord staat alleen in het "echte" bestand...

En de 'select' wist ik niet te vermijden...:(
 
@ VenA,

In file in bijlage is week 12 handmatig werkende(VO cel AC71), nu ben ik aan het proberen week 13 ook (handmatig, voorlopig ipv environ ("username") werkende te krijgen), dit wil maar niet lukken...
"Week 13 bis met juiste opmaak" werkt, alleen zou dit moeten werken in "WEEK 13".

Kan je dit nog eens bekijken aub?

Alvast bedankt voor de moeite!
 

Bijlagen

  • VO_lukt_niet.xlsm
    591,3 KB · Weergaven: 43
Het lijkt mij verstandig eerst eens alle VO in ieder werkblad te verwijderen: het wemelt nu van de doublures.
Als je vervolgens steeds maar 1 VO per blad invoert, kun je het effekt ervan beter beoordelen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan