# Excel -\> Yazma ve açma için şifre gerektiği durumlar

**URL:** <https://forum.robusta.ai/t/excel-yazma-ve-acma-icin-sifre-gerektigi-durumlar/428>\
**Category:** FAQ\
**Created:** [November 11, 2022, 7:53am UTC](https://forum.robusta.ai/t/excel-yazma-ve-acma-icin-sifre-gerektigi-durumlar/428 "2022-11-11T07:53:29Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![Berkay](https://avatars.discourse-cdn.com/v4/letter/b/f4b2a3/32.png) [@Berkay](https://forum.robusta.ai/u/Berkay)\
**Post date:** [November 11, 2022, 7:53am UTC](https://forum.robusta.ai/t/excel-yazma-ve-acma-icin-sifre-gerektigi-durumlar/428/1 "2022-11-11T07:53:29Z")

</div>

Merhaba,

Bir süreç içerisinde excel dosyasını açmak ve içerisinde işlem yapabilmek için 2 farklı şifre girilmesi gerekmektedir. Burada aşağıda ileteceğim vbscript ile şifreli excelleri save as ile tamamen şifresiz yapabilirsiniz.

**Eğer hem açarken hemde yazmak için şifre istiyor ise;**

```auto
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.displayalerts=false
Set objWorkbook = objExcel.Workbooks.Open ("C:\RobustaJiraProjects\IP-606 Sifreli Excel ile islem yapma\Test.xlsx",,True,,"123") 
Set objWorksheet1 = objWorkbook.Worksheets("sayfa 1")
objWorksheet1.SaveAs "C:\RobustaJiraProjects\IP-606 Sifreli Excel ile islem yapma\newTest.xlsx",,""
ReadOnly=False
IgnoreReadOnlyRecommended=true

objWorkbook.save
objWorkbook.close
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing

```

**Eğer sadece açarken şifre var ise;**

\*\*\*Bu özellik Ağustos-2022 versiyonu ile Excel open aktivitesine eklenmiştir.

```auto
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.displayalerts=false
Set objWorkbook = objExcel.Workbooks.Open ("C:\RobustaJiraProjects\IP-838\Test2.xlsx",,,,"123qwe","123qwe",True,,True,True)
Set objWorksheet1 = objWorkbook.Worksheets("Sheet1")
objWorksheet1.SaveAs "C:\RobustaJiraProjects\IP-838\newTest.xlsx",,""
ReadOnly=False
IgnoreReadOnlyRecommended=true
objWorkbook.save
objWorkbook.close
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing

```