Vraag : Het Maskeren van de cel in Excel

Ik probeer om een macro te schrijven om cellen bevattende wachtwoorden van een blad van Excel voor Veelvoudige gegevensbestandverbindingen (deze zijn dynamisch en kunnen aan veelvoudige gegevensbestanden zijn) te lezen.

Is daar een manier om de cel zodat de gebruikers wie de te maskeren Spreadsheet openen niet de cel zouden moeten kunnen moet lezen zou maar het, en van de Macro moeten worden gelezen editable zijn?

Antwoord : Het Maskeren van de cel in Excel

Hier is een volledige oplossing die de werken als u willen.

Van uw projectOntdekkingsreiziger in VBA, verberg een blad aangezien xlSheetVeryHidden (voor het bezit van het Zicht).
Van een zichtbaar blad, selecteer een cel die aan gebruikers beschikbaar zal zijn die het wachtwoord zullen veranderen.

Van de zichtbare vorm van de bladcode, voeg deze code toe:

Expliciete optie

Privé SubWorksheet_Change (Doel ByVal als Waaier)
    Als (Target.Column = 2 en Target.Row = 1) toen
        Schemerige newPassword: newPassword = Target.FormulaR1C1
        Target.FormulaR1C1 = ""
        Application.ActiveWorkbook.Worksheets (2). Cellen (1, 1) .FormulaR1C1 = newPassword
    Eind als
   
Sub van het eind

Zorg ervoor dat de Kolom (2 in mijn voorbeeld) en de Rij (1 in mijn voorbeeld) uw wachtwoordcel zal passen.
Ook, verander de index van uw verborgen aantekenvel in aangewezen (2 in mijn geval - het is een nul gebaseerde index).

Aan retreive gebruikt uw verborgen wachtwoord, deze code:

Application.ActiveWorkbook.Worksheets (2). Cellen (1, 1) .FormulaR1C1

Vergeet niet om de aangewezen index daar ook te plaatsen.

Tot slot vergeet om geen wachtwoord op uw project te zetten zodat kunnen andere mensen niet het bladzicht veranderen.

========

Ik denk het de enige manier is die u kon precies bereiken wat u wilt.

PS. Natuurlijk kunt u het wachtwoord met ******** vervangen in plaats van het ontruimen van de tekst als in mijn voorbeeld.