十萬火急，excel的工具列全部不見了

lolmuta

我為了簡化excel，去下載了別人寫的vba，如附件(裡面有api，我看不懂)，會把excel所有的功能全部關了，除了cells, 當然也有回復功能。但是裡面沒有存檔功能。
我很無聊了加了一個功能，就執行一條指令，

1. thisworkbook.save

复制代码

本來我希望可以在簡化的環境下工作，同時擁有存檔，
結果不知道為什麼，(我想可能是簡化後excel被關閉了)之後再開excel就是簡化的狀態，沒有檔案，編輯…的功能，
沒有格式工具，也沒辦法設定環境，右鍵失效
回復功能按下去就頂多多了一行基本的功能，不是我要的。
怎麼辦，那個是公共電腦，我得在下班前搞定啊!!!救人啊

ps:我想可能要修改註冊碼才有效，但是我不會啊救人啊

masterexcel

仅供参考，楼主试试以下代码：

1. 
   
2. Sub test()
   
3.     For Each cmb In Application.CommandBars
   
4.         cmb.Visible= True
   
5.         cmb.Enabled = True
   
6.     Next cmb
   
7. End Sub
   

复制代码

[ 本帖最后由 masterexcel 于 2010-9-15 13:36 编辑 ]

masterexcel

原帖由 qczvba 于 2010-9-15 13:39 发表
我已发贴，多多指教。UPDATE。  

http://club.excelhome.net/thread-625847-1-1.html

一定学习！谢谢！

lolmuta

原來的程式跑起來有問題，我修改了一下，

1. Private Sub Workbook_Open()
   
2. Call Recover1
   
3. 
   
4. 
   
5. End Sub
   
6. Sub Recover1()
   
7.     Dim cmb As CommandBar
   
8.    
   
9.     For Each cmb In Application.CommandBars
   
10.         cmb.Visible = True
    
11.         cmb.Enabled = True
    
12.     Next cmb
    
13. End Sub

复制代码

不過，我還沒辦法試，那個被我搞壞的電腦在另一個地方，現在我得儘可能的收集一切方法，等等去那裡試。

[ 本帖最后由 lolmuta 于 2010-9-15 13:34 编辑 ]

qczvba

我已发贴，多多指教。UPDATE。  

http://club.excelhome.net/thread-625847-1-1.html

lolmuta

工作到現在才出來回!!EXCEL已經恢復正常。太感激了
不過你那個跑起來會開一堆@@，有的還得硬用ON ERROR RESUME NEXT 不然會ERROR，
大約是EXCEL2003還有很多不同版本吧!!