Affichage fenetre bloqué !?

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2017

• #2

Bonjour WEIDER 🙂

Un essai: avec un nouveau classeur, fait un macro pour ouvrir le fichier et ajoute le mot de passe.

Workbooks.Open("Classeur1.xlsm")

With ActiveWorkBook
.Password = "toto"
End With

 

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 21 Avril 2017

• #3

Bonjour Lone-wolf,

Houla, j'avoue ne pas tout comprendre dans ce que tu me conseils...🙁

Créer un nouveau fichier Excel, mais après... Mon coté novice refait surface....

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 21 Avril 2017

• #4

Re

Ce n'est quand même pas compliqué?!.

Ouvre un nouveau classeur, insère un nouveau module, et dans le nouveau module. Change le chemin, le nom du classeur à ouvrir et le mot de passe.

VB:

Option Explicit

Sub Ouvrir()
Dim Fichier As String

    Fichier = "C:\Users\" & Environ("Username") & "\Documents\Classeur1.xlsm"
    Workbooks.Open Filename:=Fichier, WriteResPassword:="titi"

    With ActiveWorkbook
        .Sheets("Feuil1").Activate
        ActiveSheet.Unprotect ("toto")
    End With
End Sub

 

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 21 Avril 2017

• #5

J'ai ENFIN réussi à débloquer ma fenêtre.... 😵

Je viens d'y passer plus de 20 minutes, j'ai pas mal trituré le bouton 'protéger la feuille', ce dernier est redevenu opérationnel à un moment donné, j'ai protégé la feuille puis déprotégé, et d'un coup d'un seul ma fenêtre a pu retrouvée son apparence globale 🙄

Un bug peut être, ou une mauvaise manipe...

Merci à vous pour votre aide.

Bon weekend.

 

Vote positif 0 Vote négatif