Affichage fenetre bloqué !?

[WEIDER]

Bonjour à tous,

Pouvez vous m’aider, je suis ‘bêtement’ bloqué avec mon fichier Excel.

En faite, à l’ouverture (avec un mot de passe), j’ai cette interface (pièce jointe) et impossible de mettre en plein écran !? Je n’ai plus la main sur cette fenêtre, ne pouvant plus intervenir sur l’option ‘Ôter la protection !?

J’ai pas mal ‘bidouiller’ les protections de feuille, sans mot de passe. Je ne comprends plus….

Pouvez vous m’aider ?

Merci beaucoup.

 

[Lone-wolf]

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

 

[WEIDER]

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....

 

[Lone-wolf]

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.

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

 

[WEIDER]

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.